home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-09-18 | 1.9 KB | 55 lines | [TEXT/gsVR] |
- % Copyright (C) 1997 Aladdin Enterprises. All rights reserved.
- %
- % This file is part of Aladdin Ghostscript.
- %
- % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author
- % or distributor accepts any responsibility for the consequences of using it,
- % or for whether it serves any particular purpose or works at all, unless he
- % or she says so in writing. Refer to the Aladdin Ghostscript Free Public
- % License (the "License") for full details.
- %
- % Every copy of Aladdin Ghostscript must include a copy of the License,
- % normally in a plain ASCII text file named PUBLIC. The License grants you
- % the right to copy, modify and redistribute Aladdin Ghostscript, but only
- % under certain conditions described in the License. Among other things, the
- % License requires that the copyright notice and this notice be preserved on
- % all copies.
-
- % Initialization file for Display PostScript functions.
-
- % ------ Halftone phase ------ %
-
- /sethalftonephase { % <x> <y> sethalftonephase -
- -1 2 index 2 index .setscreenphase pop pop
- } odef
- /currenthalftonephase { % - currenthalftonephase <x> <y>
- 0 .currentscreenphase
- } odef
-
- % ------ Device information ------ %
-
- /.deviceinfodict mark
- /Colors null /GrayValues null /RedValues null /GreenValues null
- /BlueValues null /ColorValues null
- .dicttomark readonly def
- /deviceinfo { % - deviceinfo <dict>
- currentdevice //.deviceinfodict .getdeviceparams .dicttomark readonly
- } odef
-
- % The current implementation allocates a 2-element array each time.
- % Perhaps we should change this to 2 separate parameters for X and Y?
- /.wtdict mark
- /wtranslation null
- .dicttomark readonly def
- /wtranslation { % - wtranslation <x> <y>
- currentdevice //.wtdict .getdeviceparams exch pop exch pop aload pop
- } odef
- currentdict /.wtdict .undef
-
- % ------ View clipping ------ %
-
- /rectviewclip { % <x> <y> <width> <height> rectviewclip -
- % <numarray|numstring> rectviewclip -
- newpath .rectappend viewclip
- } odef
-